COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	{ initial declarations for POINTY }
C00005 ENDMK
C⊗;
{ initial declarations for POINTY }


			{ scalars }

DEG←1.0;
DEGREE←1.0;
DEGREES←1.0;
INCHES←1.0;
INCH←1.0;
CM←(1.0/2.54);

			{ vectors }
XHAT←VECTOR(1,0,0);
YHAT←VECTOR(0,1,0);
ZHAT←VECTOR(0,0,1);
NILVECT←VECTOR(0,0,0);

			{ rotation }

NILROT←ROT(XHAT,0);

			{ transes }

NILTRANS←TRANS(NILROT,NILVECT);


			{ frames }

{ STATION←FRAME(NILROT,NILVECT); }

FRAME BPARK,YPARK;
BPARK←FRAME(ROT(YHAT,180.0),VECTOR(43.53125,56.855,9.95875));
YPARK←FRAME(ROT(YHAT,180.0),VECTOR(40,14,9));
FRAME BGRASP;
FRAME POINTER,YPOINTER;
{keep the following at this end};
FRAME BARM,YARM;
SCALAR BHAND,YHAND;


AFFIX BGRASP TO BARM AT TRANS(ROT(XHAT,-180),NILVECT);
AFFIX POINTER TO BARM AT TRANS(ROT(ZHAT,-5.173)*ROT(YHAT,13.2)*ROT(ZHAT,-.417),
			VECTOR(.0121,.119,3.75));

			{ macros }
{ DEFINE NILROTN = ⊂NILROT⊃;
DEFINE NILVEC  = ⊂NILVECT⊃;
DEFINE NILVECTOR = ⊂NILVECT⊃;
}

	{ following is end marker }
_____END____INIT